mispracticas
[t,u]=mirk4(tinic, tfin, N, x0, fun, par);
%u=u.';
misgraficas